home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / kalender prg. 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  286b  |  13 lines
  1. 5 REM NICHT GEEIGNET FUER SCHALTJAHRE
  2. 10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
  3. 20 T=VAL(MID$(D$,1,2))
  4. 30 M=VAL(MID$(D$,3,2))
  5. 40 J=VAL(MID$(D$,5))
  6. 50 IF M<1 OR M>12 THEN RUN
  7. 60 IF T<1 OR T>31 THEN RUN
  8. 70 REM WELCHE TAGESNUMMER ?
  9. 80 IF M>2 THEN N=INT(30.6*(M+1))-63+T:GOTO 100
  10. 90 N=INT(30.6*(M+13))-428+T
  11. 100 PRINT"NUMMER"N
  12. 110 END
  13.